home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs32.d81 / examples.arc / EXEC.A < prev    next >
Text File  |  1989-12-01  |  761b  |  24 lines
  1. ;exec.asm
  2. ;=========================
  3. ; Command:  exec filename
  4. ;=========================
  5.                                   
  6. int04       = $1704               
  7. int0e       = $170e               
  8. int20       = $1720               
  9.                                   
  10. star        = $0b00               
  11.             .wor star             
  12.             * =  star             
  13.  
  14.             jmp exec
  15.             dw Date
  16.                       
  17. exec        ldx #1                  ; Make sure %1 is there
  18.             jsr int04
  19.             bcs exec0               ; Its not. Just quit
  20.             jsr int20               ; Otherwise execute it
  21. exec0       jmp int0e             
  22.                                   
  23.             .end                  
  24.